home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / feel-075.lha / feel0.75 / Src / diffs < prev    next >
Encoding:
Text File  |  1992-05-19  |  11.3 KB  |  375 lines
  1. ===================================================================
  2. RCS file: RCS/allocate.h,v
  3. retrieving revision 1.5
  4. diff -r1.5 allocate.h
  5. ===================================================================
  6. RCS file: RCS/bootstrap.h,v
  7. retrieving revision 1.2
  8. diff -r1.2 bootstrap.h
  9. ===================================================================
  10. RCS file: RCS/bvf.h,v
  11. retrieving revision 1.3
  12. diff -r1.3 bvf.h
  13. rcsdiff error: RCS/bytec.raw.h,v: No such file or directory
  14. ===================================================================
  15. ===================================================================
  16. RCS file: RCS/calls.h,v
  17. retrieving revision 1.2
  18. diff -r1.2 calls.h
  19. ===================================================================
  20. RCS file: RCS/ccc.h,v
  21. retrieving revision 1.2
  22. diff -r1.2 ccc.h
  23. ===================================================================
  24. RCS file: RCS/class.h,v
  25. retrieving revision 1.3
  26. diff -r1.3 class.h
  27. ===================================================================
  28. RCS file: RCS/copy.h,v
  29. retrieving revision 1.8
  30. diff -r1.8 copy.h
  31. ===================================================================
  32. RCS file: RCS/defs.h,v
  33. retrieving revision 1.2
  34. diff -r1.2 defs.h
  35. ===================================================================
  36. RCS file: RCS/error.h,v
  37. retrieving revision 1.4
  38. diff -r1.4 error.h
  39. ===================================================================
  40. RCS file: RCS/format.h,v
  41. retrieving revision 1.2
  42. diff -r1.2 format.h
  43. ===================================================================
  44. RCS file: RCS/funcalls.h,v
  45. retrieving revision 1.6
  46. diff -r1.6 funcalls.h
  47. ===================================================================
  48. RCS file: RCS/garbage.h,v
  49. retrieving revision 1.5
  50. diff -r1.5 garbage.h
  51. ===================================================================
  52. RCS file: RCS/generics.h,v
  53. retrieving revision 1.2
  54. diff -r1.2 generics.h
  55. ===================================================================
  56. RCS file: RCS/global.h,v
  57. retrieving revision 1.10
  58. diff -r1.10 global.h
  59. rcsdiff error: RCS/interp.raw.h,v: No such file or directory
  60. ===================================================================
  61. RCS file: RCS/interpret.h,v
  62. retrieving revision 1.6
  63. diff -r1.6 interpret.h
  64. 2,3c2,3
  65. <  * Defines of bytecode junk
  66. <  */
  67. ---
  68. >   * Defines of bytecode junk
  69. >   */
  70. 24,27c24,27
  71. < BC_BUG({            %%\
  72. <   fprintf(stderr,"{Doing: [%x, %x, %d] %d}\n",pc,sp,(int) (sp-oldsp),*pc); %%\
  73. <   oldsp=sp;    %%\
  74. <   }) %%\
  75. ---
  76. > BC_BUG({            \
  77. >   fprintf(stderr,"{Doing: [%x, %x, %d] %d}\n",pc,sp,(int) (sp-oldsp),*pc); \
  78. >   oldsp=sp;    \
  79. >   }) \
  80. 32c32
  81. <   vref(statics[n],m)
  82. ---
  83. >   statics[n][m]
  84. 71,77c71,77
  85. < #define MAKE_ENV(sp,size)        %%\
  86. < {                    %%\
  87. <   LispObject tmp;            %%\
  88. < /**/                    %%\
  89. <   tmp=allocate_vector(sp+1, size+1);    %%\
  90. <   vref(tmp,0)= PEEK_VAL(sp);        %%\
  91. <   SHOVE_VAL(sp,tmp);            %%\
  92. ---
  93. > #define MAKE_ENV(sp,size)        \
  94. > {                    \
  95. >   LispObject tmp;            \
  96. > /**/                    \
  97. >   tmp=allocate_vector(sp+1, size+1);    \
  98. >   vref(tmp,0)= PEEK_VAL(sp);        \
  99. >   SHOVE_VAL(sp,tmp);            \
  100. 88,91c88,91
  101. <   into= (int)(*(stream++));        %%\
  102. <   into=(into<<8)+((int)(*(stream++)));        %%\
  103. <   into=(into<<8)+((int)(*(stream++)));        %%\
  104. <   into= *(stream++) ? -into: into;        %%\
  105. ---
  106. >   into= (int)(*(stream++));        \
  107. >   into=(into<<8)+((int)(*(stream++)));        \
  108. >   into=(into<<8)+((int)(*(stream++)));        \
  109. >   into= *(stream++) ? -into: into;        \
  110. 100c100
  111. < #define read_byte_arg(into,stream) %%\
  112. ---
  113. > #define read_byte_arg(into,stream) \
  114. 110c110
  115. < #define PC_VAL_WIDTH 18
  116. ---
  117. > #define PC_VAL_WIDTH 20
  118. 117,120c117,120
  119. < #define REIFY_PC(pc)                        %%\
  120. < ((LispObject)                            %%\
  121. <  ((this_vector<<(PC_VAL_WIDTH+PC_FLAG_WIDTH))            %%\
  122. <   | (((pc)-bytevector_start(this_vector)) << PC_FLAG_WIDTH)     %%\
  123. ---
  124. > #define REIFY_PC(pc)                        \
  125. > ((LispObject)                            \
  126. >  ((this_vector<<(PC_VAL_WIDTH+PC_FLAG_WIDTH))            \
  127. >   | (((pc)-bytevector_start(this_vector)) << PC_FLAG_WIDTH)     \
  128. 123,126c123,126
  129. < #define SET_PC(this_vector,reified_pc) %%\
  130. < ((this_vector=((int)reified_pc)>>(PC_VAL_WIDTH+PC_FLAG_WIDTH)),    %%\
  131. <  reified_pc=((LispObject) (((int)(reified_pc))&PC_VECT_MASK)),    %%\
  132. <  bytevector_start(this_vector)+((((int)reified_pc)>>PC_FLAG_WIDTH))        %%\
  133. ---
  134. > #define SET_PC(this_vector,reified_pc) \
  135. > ((this_vector=((int)reified_pc)>>(PC_VAL_WIDTH+PC_FLAG_WIDTH)),    \
  136. >  reified_pc=((LispObject) (((int)(reified_pc))&PC_VECT_MASK)),    \
  137. >  bytevector_start(this_vector)+((((int)reified_pc)>>PC_FLAG_WIDTH))        \
  138. 130c130
  139. < #define ADJUST_PC(pc,x)        %%\
  140. ---
  141. > #define ADJUST_PC(pc,x)        \
  142. 134,135c134,135
  143. <   (this_vector=intval(bytefunction_codenum(x)),        %%\
  144. <    bytevector_start(intval(bytefunction_codenum(x)))    %%\
  145. ---
  146. >   (this_vector=intval(bytefunction_codenum(x)),        \
  147. >    bytevector_start(intval(bytefunction_codenum(x)))    \
  148. 156,168c156,168
  149. < {                %%\
  150. <   int i,j;            %%\
  151. <   for (i=0, j=0; i<256; i++)    %%\
  152. <     {                %%\
  153. <       if (exec_counts[i]!=0)    %%\
  154. <     {                 %%\
  155. <       fprintf(stderr,"%3d: %7d ",i,exec_counts[i]);     %%\
  156. <       j++;            %%\
  157. <       if ( (j%6) == 0)    %%\
  158. <         fputc('\n',stderr);    %%\
  159. <     }            %%\
  160. <     }                %%\
  161. <   if (j%6!=0) fputc('\n',stderr); %%\
  162. ---
  163. > {                \
  164. >   int i,j;            \
  165. >   for (i=0, j=0; i<256; i++)    \
  166. >     {                \
  167. >       if (exec_counts[i]!=0)    \
  168. >     {                 \
  169. >       fprintf(stderr,"%3d: %7d ",i,exec_counts[i]);     \
  170. >       j++;            \
  171. >       if ( (j%6) == 0)    \
  172. >         fputc('\n',stderr);    \
  173. >     }            \
  174. >     }                \
  175. >   if (j%6!=0) fputc('\n',stderr); \
  176. 179c179
  177. < #  define BC_CASE(name) %%\
  178. ---
  179. > #  define BC_CASE(name) \
  180. 182c182
  181. < #  define  BC_CASE(name)%%\
  182. ---
  183. > #  define  BC_CASE(name)\
  184. 187c187
  185. < #  define BC_CASE(name) %%\
  186. ---
  187. > #  define BC_CASE(name) \
  188. 191c191
  189. < #  define BC_CASE(name) %%\
  190. ---
  191. > #  define BC_CASE(name) \
  192. 197,201d196
  193. < #define N_GLOBALS 10
  194. < #define GLOBAL_REF(n) vref(global_vector,(n))
  195. < #define Generic_Lookup_Fn 0
  196. < #define Generic_Apply_Fn 1
  197. < 
  198. 203,209c198,200
  199. <   static LispObject boot_modules[MAX_BOOT_MODULES]; \
  200. <   static int boot_module_count=1;               \
  201. <   static bytecode exit_bytes[] = { BC_EXIT };        \
  202. <   static SYSTEM_GLOBAL(int,static_count);    \
  203. <   static LispObject *statics;    \
  204. <   static LispObject static_vectors;    \
  205. <   static LispObject global_vector;
  206. ---
  207. >   static int static_count;    \
  208. >   static LispObject *statics[MAX_MODS];    \
  209. >   static LispObject static_vectors[MAX_MODS];    \
  210. 211c202
  211. <   static bytecode **bytevectors;    \
  212. ---
  213. >   static bytecode *bytevectors[MAX_MODS];    \
  214. 215,220c206,211
  215. < #define BC_INITIALISE_GLOBALS()        %%\
  216. <   BCnil=nil;                %%\
  217. <   BCtrue=lisptrue;            %%\
  218. <   BC_BUG(oldsp=sp);            %%\
  219. <   sp=stacktop-1;     /* stackpointer[0]= top elt */ %%\
  220. <   pc=start_pc;            %%\
  221. ---
  222. > #define BC_INITIALISE_GLOBALS()        \
  223. >   BCnil=nil;                \
  224. >   BCtrue=lisptrue;            \
  225. >   BC_BUG(oldsp=sp);            \
  226. >   sp=stacktop-1;     /* stackpointer[0]= top elt */ \
  227. >   pc=start_pc;            \
  228. 223,224c214,215
  229. < #define BC_NOINSTRUCT(pc)    %%\
  230. <  default:            %%\
  231. ---
  232. > #define BC_NOINSTRUCT(pc)    \
  233. >  default:            \
  234. ===================================================================
  235. RCS file: RCS/irun.h,v
  236. retrieving revision 1.2
  237. diff -r1.2 irun.h
  238. ===================================================================
  239. RCS file: RCS/iset.h,v
  240. retrieving revision 1.4
  241. diff -r1.4 iset.h
  242. ===================================================================
  243. RCS file: RCS/lamport.h,v
  244. retrieving revision 1.1
  245. diff -r1.1 lamport.h
  246. ===================================================================
  247. RCS file: RCS/lex_global.h,v
  248. retrieving revision 1.1
  249. diff -r1.1 lex_global.h
  250. ===================================================================
  251. RCS file: RCS/listops.h,v
  252. retrieving revision 1.2
  253. diff -r1.2 listops.h
  254. ===================================================================
  255. RCS file: RCS/lists.h,v
  256. retrieving revision 1.2
  257. diff -r1.2 lists.h
  258. ===================================================================
  259. RCS file: RCS/macros.h,v
  260. retrieving revision 1.2
  261. diff -r1.2 macros.h
  262. ===================================================================
  263. RCS file: RCS/modboot.h,v
  264. retrieving revision 1.4
  265. diff -r1.4 modboot.h
  266. 1,2d0
  267. < #ifndef MODBOOT_H
  268. < #define MODBOOT_H
  269. 53d50
  270. < #endif
  271. ===================================================================
  272. RCS file: RCS/modops.h,v
  273. retrieving revision 1.2
  274. diff -r1.2 modops.h
  275. ===================================================================
  276. RCS file: RCS/modules.h,v
  277. retrieving revision 1.4
  278. diff -r1.4 modules.h
  279. ===================================================================
  280. RCS file: RCS/ngenerics.h,v
  281. retrieving revision 1.4
  282. diff -r1.4 ngenerics.h
  283. ===================================================================
  284. RCS file: RCS/objects.h,v
  285. retrieving revision 1.1
  286. diff -r1.1 objects.h
  287. ===================================================================
  288. RCS file: RCS/root.h,v
  289. retrieving revision 1.2
  290. diff -r1.2 root.h
  291. ===================================================================
  292. RCS file: RCS/runtime.h,v
  293. retrieving revision 1.2
  294. diff -r1.2 runtime.h
  295. ===================================================================
  296. RCS file: RCS/semaphores.h,v
  297. retrieving revision 1.2
  298. diff -r1.2 semaphores.h
  299. ===================================================================
  300. RCS file: RCS/sio.h,v
  301. retrieving revision 1.3
  302. diff -r1.3 sio.h
  303. ===================================================================
  304. RCS file: RCS/slots.h,v
  305. retrieving revision 1.2
  306. diff -r1.2 slots.h
  307. ===================================================================
  308. RCS file: RCS/sockets.h,v
  309. retrieving revision 1.2
  310. diff -r1.2 sockets.h
  311. ===================================================================
  312. RCS file: RCS/specials.h,v
  313. retrieving revision 1.3
  314. diff -r1.3 specials.h
  315. ===================================================================
  316. RCS file: RCS/state.h,v
  317. retrieving revision 1.3
  318. diff -r1.3 state.h
  319. ===================================================================
  320. RCS file: RCS/structs.h,v
  321. retrieving revision 1.11
  322. diff -r1.11 structs.h
  323. 379d378
  324. <   int           local_count;   /* Number of local slots */
  325. 390a390
  326. >   int           local_count;   /* Number of local slots */
  327. ===================================================================
  328. RCS file: RCS/symboot.h,v
  329. retrieving revision 1.2
  330. diff -r1.2 symboot.h
  331. ===================================================================
  332. RCS file: RCS/syssockets.h,v
  333. retrieving revision 1.2
  334. diff -r1.2 syssockets.h
  335. ===================================================================
  336. RCS file: RCS/system_p.h,v
  337. retrieving revision 1.3
  338. diff -r1.3 system_p.h
  339. ===================================================================
  340. RCS file: RCS/system_t.h,v
  341. retrieving revision 1.3
  342. diff -r1.3 system_t.h
  343. ===================================================================
  344. RCS file: RCS/table.h,v
  345. retrieving revision 1.3
  346. diff -r1.3 table.h
  347. ===================================================================
  348. RCS file: RCS/threads.h,v
  349. retrieving revision 1.4
  350. diff -r1.4 threads.h
  351. ===================================================================
  352. RCS file: RCS/toplevel.h,v
  353. retrieving revision 1.2
  354. diff -r1.2 toplevel.h
  355. ===================================================================
  356. RCS file: RCS/vectors.h,v
  357. retrieving revision 1.2
  358. diff -r1.2 vectors.h
  359. ===================================================================
  360. RCS file: RCS/version.h,v
  361. retrieving revision 1.5
  362. diff -r1.5 version.h
  363. 2c2
  364. <  * $Id: version.h,v 1.5 1992/05/02 12:38:18 pab Exp $
  365. ---
  366. >  * $Id: version.h,v 1.4 1992/03/14 14:36:26 pab Exp $
  367. 5,7d4
  368. <  * Revision 1.5  1992/05/02  12:38:18  pab
  369. <  * More changes
  370. <  *
  371. ===================================================================
  372. RCS file: RCS/y.tab.h,v
  373. retrieving revision 1.1
  374. diff -r1.1 y.tab.h
  375.